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executive routine 17 feb 1970 



psf= 
bef« 
bff- 
rsf- 
usf = 
spn = 
rpn = 
Ibe- 
rsb = 
lqn = 



ot 
ot 
ot 
ot 
ot 
ot 
ot 
ot 
ot 
ot 



0077 
0177 
0177 
4177 
5777 
1477 
0477 
1377 
1077 
4377 



psn = 


lot 


1077 


ben = 


iot 


1177 


bfn = 


iot 


1177 


rsn = 


'ot 


4077 


usn = 


ot 


5677 


scn = 


iot 


1577 


rcn = 


iot 


0577 


rbe = 


'ot 


3777 


sdl = 


'ot 


3477 


soq* 


iot 


4477 



SPS=!Ot 

sbe-iot 
sbf =iot 
srs^iot 
srw=iot 
lar=iot 
st i = lot 
sbr=iot 
s i w = i o t 
sei = iot 



3077 
5177 
3177 
4177 
1677 
0677 
3377 
1577 
3577 
1777 



rpp=770000 
rcp-770001 
rfa=770007 
ipp*770010 
scp=770011 
uhn=770010 
ubf=770022 
rin=770030 
ioc=770032 

lok=770040 
sfa=770045 

ncb_j=7 2 
ewv_ s 5 

npb__=740 
pwm_=30 

rwm_-4 
nuf_=2 
ntl_=3 



rqp-770003 

cqt-770011 
sqp=770013 
ubs=7700H 

rfn=770031 
lcr=770037 

ulk=770041 



/size of typewriter buffer 
/restart level 

/punch buffer size 
/restart level 

/reader restaqt level 
/number of user fields 
/number of user entries 



/process words 

di 7=6 /dia word 

Prn=7 /process ring 

Pi*q-7 7 /process queue 

cms=6630 /origin of computation blocks 

/console words 

aw7-0 /assignment word 

t*7=7 // and 1 are translator variables 

msk=3 /console mask 

id=4 

rr0=5 /reader switch 

PP0=6 /punch switch 

df7»7 /drum field table 

ral-10 /selectric switch 

trn = ?7 n words of typewriter junk 



/computation words 

quu-Ji /computation queue (two words) 

bp7-I3 /location of breakpoint 

bp2=bp7+7 /proceed count 

bp3=bp2+7 /instruction under breakpoint 

ilr-bp3+? /illegal instruction return 

i rn r = I L r + 7 /illegal memory reference return 

sup=?mr+7 /superior sphere 

spe=sup+7 /fault entry to superior 

be7=spe+7 /break enable 

con=be?+2 /pointer back to console 

prh=con + 2 /process hoard 

qco=prh+? /quantum count 

define console n,r?,m 
pb'n, n'040Q0 





m 



jmp ill 

j mp ill 

dd'n+nuf 

s k p r 7 * i 

repeat 7-r7, [nop ra I 9s 

jmp 2s5 jmp zr5 

jmp 2s4 jmp zr4 61 
terminate 



0/ eem /initial entry 

lat 

sad (2 
dac nuc 
iam 
cli 
Icr 
d i a 
lio (210000 /adm. rt, on field 21, loc, 3200 

law 4600 
dec 
hit 

Ixr (-100 
digm ? ?00 
SXXP 
jmp .-2 
I em 

law cms- [cms-end] > 1 3*1 3 
dac t 
lio f rp 
aam 
dio t 
dac frp 
law 1 3 
a dm t 

sas (cms-54 /leave last four out 

jmp ,-7 
law 5000 
sut, lia 

lar 
sen 
ben 
bff 
psf 
spn 
ben 
bff 

aHH fyrt 

sas (500? 

jmp sut 

rsf 

usf 

ioc 

law 7400 

ivk 121 /initialize microtape address 

Ixr O 

dam i 

SXXA 

sas (»-J 

jmp .-3 

jmp 13/ 

constants 

74/ 

340000+qqt-prq 
unt=ivk . jmp 20 
dat-Ivk . jmp 2J 
mot=ivk , jmp 7 7 



100, 


jmp 


tot 


10 - 


interrupt 




jmp 


dsp 


11 - 


iot 




jsp 


trp 


n - 


i I legal 




jsp 


trp 


/3- 


lock fault 




jmp 


» 


14 - 


function tardy 




jsp 


trp 


15 - 


function busy 




jmp 


str 


lb - 


function start 




jsp 


trp 


n - 


hit 




jmp 


adf 


no 


- extend snag 




jmp 


bp 


in 


- bpt 




jmp 


xeO 


ni 


- esi 




jmp 


fvw 


/13 


- ill ivk 




jmp 


pre 


114 


- preempt 




jmp 


rbn 


115 


- rnd rbn 




jmp 


frl 


fib 


- frk 




jmp 


qtl 


117 


- q i t 




jmp 


atm 


no 


- meta 




jmp 


i vt 


in 


- enter 




jmp 


Ivt 


m 


- ivk 




jmp 


adx 


113 


- index snag 




jmp 


adf+2 


114 


- last snag 


125, 


/four words of 


space 


131/ 


ioc 
i vk 


no 






beg, 


lac 
dac 
iac 
dac 
ubn 


(xor 
141 
(add 
144 


I tot 


+3 


140, 


repeat 6, 









jmp 


147 








cl f 




/system death 




lar 










S2S 


10 








jmp 


9 








1 1 o 


(6500 








d i a 










I io 


(250700 






lac 


(77100 






dec 










hit 










jmp 


7777 






dd2, 


repeat nu 


f ,0 




dd3 


repeat nu 


f,o 




dd4 , 


repeat nu 


f,0 




dd5 , 


repeat nu 


f,o 




ddb , 


repeat nu 


f,o 





sd, lac 

repeat J 7,0 

lac 

lac 



lac 
lac 


vi f, 10000 



pmt, 76 

csi, /pseudo console switches 

onn, /consoles logged in 

jmp i I I /constant 
uc, arc repeat 1,0 /absolute core words 

sr0 /constants for adm rt 

ntb 

ubs 
frp, /free process pool 

qqt 

bop 
ctb, pb2 

pb3 

pb4 

Pb5 

pb6 

srr 

mtt 
be, repeat 3,1000 /core flags 

nuc, 3 

rs/ 
cpp, cpp-prq cpp-prq /process chain 

/programmed queues 

qqt, -7 ,-prq-0 /queue for microtapes 

repeat 4,,-prq ,-prq-7 



dsp, 






add 
dap 
ixr 
Law 
and 
s*a 
jmp 
dac 
Ixr 
jmp 


(d7 
. + 1(5 
cmp 
7777 
? con 
i 

i I I 
t? 
pre 

a 


I 11, 






Ixr 
I io 


cmp 
i i Ir 








TIA>P 








jmp 


102 


i 11+4, 






Ixr 
ral 
rcr 
I io 
re I 
rar 
ri r 
dio 
dac 
ubn 


pre 
3s 
3s 
i J 
3s 
3s 
3s 

i d 1 7 
! 1 


b, 










b ncb^ 


5 


np 


b/ 




erb"b+ 


200 







/iot trap 



/recoverable illegal instruction 



/dispatch table for iot traps 
d7, 



jmp . 


/old 


break 





jmp , 


/old 


break 


1 


jmp wa 


/wat 






jmp ra 


/rpa 






jmp rb 


/rpb 






jmp to 


/tyo 






jmp 1 1 


/tyi 






jmp pa 


/ppa 






jmp pb 


/ppb 






jmp di 


/dia 






jmp i 1 1 


/dba 






jmp dc 


/dec 






jmp da 


/dra 






jmp . 


/old 


break 


? 


jmp ar 


/arq 






j mp ill 


/iot 


2377 





jmp rr /rrb 



str, rfn 

law 7 7 

A«-IA 

sas (7 

sad (2 

add (73 /drum 

sub (74 

TAAX>P 

jmp , /wrong device 

sub (77 

sma 

jmp . /wrong device 

law 7777 

and i iow 

ssa 

jmp . /process already hung 

lac pre 

dap i iow 
hng, Ixr pre /hang this process 

lac (200000 

dip ? prq 

jmp wa0 

iow, /drum (7) 

/drum (2) 

050000 /ttyin (76) 

050000 /ttyout (77) 
030000 mtp 
030000 

060000 /crock (22) 

060000 /kludge (23) 

060000 /lossage (24) 

ntb=.-7 101 /adm rt 

c7e /entry for core 7 stuff 

repeat ntl-2,0 



ntb+ntl+7, 



arc 
exc 

repeat ntl-2,0 



atm, 


rfa 




/met a processor 




Ixr 


(-070000 




X+IX 






lac 


i 






rar 


3s 






and 


i 






and 


(77 






dac 


t 




atm+10, 


sub 


(mtz-mtb 




sma 








jmp 


mt9 






add 


(mta 






dap 


mtc 






Ixr 


pre 






lac 


i 






I io 


i 2 




mtc^ 


xct 


• 






dio 


I 2 




rta, 


Ixr 


pre 


/return value to AC 




dac 


i 






jmp 


ret 




mtb^ 


dac 


? dil 


/mta 00(3 - AC to drum address 




dlo 


ids? 


/mta 05? - 10 to drum address 




lac 


! di f 


/mta 002 - drum address to AC 




I Io 


i di ? 


/mta 3 - drum address to 10 




jmp 


at I 


/mta 004 




jmp 


at! 


/mta 005 




jmp 


at I 


/mta O0£ 




jmp 


atl 


/mta 007 




jmp 


f r2 


/770170 - temporary fork 




jmp 


rnj 


/770171 - wait for switch change 




jmp 


ill 


1770)72 




jmp 


f 11 


/770173 




jmp 


rdd 


/mta 1 04 - read drum 




jmp 


rdd 


/mta 105 - read drum 


mta, 








mt9, 


law 


1 






dac 


t6 






jmp 


ntr 





at I, law 4 
add t 
jmp spr 

/wait for switch change (770171) 

rnj , law ar I 

sas pre 

jmp ill /probably Plummer 

lac tsb 

and pmt 

sad csi 

jmp rnk 

dac csi 

dac i 

jmp ret 
rnk, lac rnk 

dac i prq 

jmp waO 

rdd, lac i di? /read drum (770174, 771175) 

dac t 

dio t2 
cla 

jmp del 



qt?. 



qt2-J, 
qt2, 



qt5, 



qt£ 



lac i 

Ixr I 

dap ? 

X-AX 

dap I 

Ixr 

I io 

spi 

idx 

ixr 

law 

and 

sad 

imp 

dac 

X-AX 

dac tJ 

law 

and 

ssa 

jmp 

ra I 

sas 

jmp 

Ixr 

lac 



prn /qu 1 1 
p r n + 1 
prn 



I prn + 7 
cmp 
1 prh 



I prh /de 

(cpp-prq 

7777 

I prq 

(cpp-prq 

qt9 

t 



7777 
prn 



:rease 



debt 
/check 



process chain 



qt5 
6s 
(7 
,+4 
I 5 
i sup 
, + 3 



/wants 
/wants 



to 
to 



/find sphere for which process is neede^ 



fork 
enter 



/wants to enter superior 



I ntb+ntl-7 

(7777 

i 

5 5 



jmp 

TAX 

lac 

and 

skp 

lac 

spi i 

sad 

jmp 

Ixr 

jmp 

dac 

TAX 

law 

sp i 

a dm 

Ixr 

law 

and 

Ixr 

dap 

TXI 

sad (cpp-prq 

dio cpp+J /process 

t 

i 7777 

I prn 



cmp 
qt6 

t 
qt2 

cmq 

i I 

i prh 
t 

7777 
i prq 
tJ 
i prq 



/AC - sphere 

/found a deserving one 

/sphere to which process will be given 



/increase debt 
/un I i nk from chain 



being removed is last 



Ixr 

law 
and 
sza 

jmp 
I \o 

iac 

dip 

lac 



ntw /enter 

i di 1 /fork 

(740000 

i prn 

pre 



/warning 
ntw, 



dac i d i 7 

X-AX 

dio i di 7 

jda acp 

jmp vtaO 

do not a [low d\1 or PC to change 



qt9, 



ra 1 6s 
sub (7 
dac t6 
lac pre 
dac t7 
lac t 
dac pre 
lac i prq+7 
dac t 
jmp nty 



/restart enter 



/new proc 
/old proc 



Ixr emp 

spi 

Ixr (frp-prh 

lio i prh 

lac pre 

aam 

dio pre 

dac i prh 

jmp wa0 



/return it to hoard 
/or pool 



rbn # TXXPf / s round robin* trap 

jmp wa0 
law vmO 

rpc, rep /put process at end of queue 

dap rQK /process In XR„ priority in CP or 10 

rl I Is 

law pqu-prq 

A+II 
rpc+5, X-»IX 

lac I prq*? 

dio i prq + | 

X-IX 

d i o i P rq 

dac i prq + 7 
X-*AX 

dap I prq 
rpx, jmp , 

pre # TXXPj /preempt trap 

jmp wa0 
rep 

r i I Is 
lax pqu-prq 
A+II 
X-»IX 

lac i prq 
dio i prq 
X-»IX 

dio i prq+? 
dap i prq 
X-*AX 

dap i prq+? 
jmp wa0 



fr2, 
frf, 



fr7, 



stf 6 

Ixr cmp 
No i prh 
TII_< 
jmp .+7 
I i o f rp 
TIIAP | 
jmp frS-2 
i T 
i prh 



/temporary fork (mta 100) 



/hoard is not 
/hoard empty , 

/lose 



empty 
check 



poo 



law 

a dm 

Ixr 

aam 

lac 

dac 

dfo 

rep 

SIA 

sad 

TIA 

rqp 

swp 

AM I_ 

sqp 

Ixr 

lav/ 

add 

szf 

dap 

jsp 

Ixr 

I io 

lac 

dac 

X-*AX 

dac 

dio 

X-MX 

dio 

TAX 

lac 

lio 

Ixr 

dac 

dio 

TXI 

d i o 

ubf 



/ increase debt 
(f rp-prh 

/un I ink 



prh 
prh 



/new process block 
/demote old process 



(10 



pre 
3 

i 1 
6 

i 1 
rpc 
pre 
prn 

prn 



/crock for temp fork 



/put old process back on queue 
/old proc 

/new proc 



prn + 7 
prn 

prn+7 

5 
d\1 

5 
d 1 7 



pre 



/hang process until it gets another 
/reason in AC 



frS-2, 
fri. 



S2f 


6 


jmp 


ret 


Ixr 


pre 


di p 


i prn 


law 


epp-prq 


dae 
TXA 


i prq 



ixr cpp+J 
dac cpp+? 
dap i prq 

jmp hng 



/restart fork 
f r6, 



Ixr pre 

lac 1 cii/ 

dac t 

X-*AX 

llo ! dij 

X-*AX 

dio i dl? 

jmp fr7 



SVC, 



r in 




c la 




ret 


6s 


sas 


(1 


sad 


(2 


add 


(13 


sub 


(14 


TAAX>P 


jmp 


* 


sub 


(11 


TA<M 


jmp 


• 


lio 


i iow 


dap 


i iow 


re I 


6s 


dac 


pr i 


r i r 


6s 


TIAF 


1 


jmp 


• 


j da 


acp 


Ixr 


acp 


lac 


(add 


dip 


i prn 


jmp 


rm3 



/drum 

/wrong device 

/wrong device 



/no suspended process 



/service !o 



srv, 
srr, 

srr+2, 
rip* 



Sri, 

rsl , 

srO, 



srl 



sr2, 



ret. 



dap 

srw 

skp 

jmp 

rrb 

lac 

ral 

rcr 

a am 

dac 

rpa- 

Idx 

sad 

lac 

dac 

I io 

dio 

sub 

S2a 

di o 

sas 

sad 

rsn 

srw 

xct 

jmp 

jmp 



sr? 



srg 



£s 
Ss 



/skip If reader running 



r i 
■i 
ri 

(I 

(I 

ri 

cJ 

rr 

ro 

i 

sr 

(e 

(- 



P 

ac erb 
ac b 
P 

s /buffer not empty 
P 

r /full, shut off reader 

rb-b-rwm 

rwm 



sr r 
sr5 
srr + 2 



srs i 
jmp .+7 



/or rr9 



rpn 
sni 



jmp sr5 
rcn 
sni 
jmp . 
ri I 4s 
TIX 
sps 

jmp sr2 
st i 

jmp sr3 
jsp ifO+? 
psf 
ty i 

jsp i tf 
TXI 
Ixr (6 

i+xxa! 

TXXAI 

dap rc2 

di o t4 

lac i bdc 

s^a i 

jmp re 2 

j da rms 



/restart both processes 



/restart a process 





I aw 


6 




dac 


pr i 




lac 


rms 




jea 


acp 


rc2, 


law 


s 




Ixr 


t4 




A$XP 




jmp 


ret 




jmp 


sr4 


sr3, 


jsp 
tyo 


i te 




jmp 


sr4-2 


sr5 , 


Ixr 


(? 




jsp 


i te 




ppa 






sbf 






jmp 


ret 


sr4, 


i dx 


srJ 




jmp 


sr! 


sr$, 


srs 






jmp 


sr4 




Ixr 


(7 




jmp 


ret 



/reactivate for reader 



/index 


and 


test 


If buf 


i te, 




dap 


°e7 






law 377 






aam 








and 


bop 






I ia 








fax 


bop 






sad 


bor + 7 






lac 


bor 






dac 


bop 






sad 


bew 






bff 








sad 


bip 






ben 




ie7 # 




jmp , 


> 



/index and test if buffer full 



itf, 


dap 
aam 


if7 




lac 


i b lp 




rcr 


Ss 




ra I 


8s 




aam 






dac 


i bip 




bef 






Idx 


i b lp 




sad 


i bo r + 1 




lac 


i bor 




dac 


i bip 




sad 


i bop 




bfn 






idx 


i bew 




sad 


i bor + J 




lac 


i bor 




dac 


i bew 


if7, 


jmp 


• 


/clear 


typewriter buffer 




law 


to3 


\f0. 


psn 






dap 


?f3 




bff 






lac 


i bip 




dac 


i bop 




jmp 


• 



/buffer pointer table 



bop= 9 -7 



5=0 






b+5 


5-5+npb 


n 


b + 5 


s=5+ncb 


It 


b+5 


2-E+ncb 


/3 


b+5 


5-5+ncb 


14 


b + 5 


2=5+ncb 


IS 


b+s 


2-5+ncb 


16 



(punch) 



bl p s . -7 . 


2=0 












b+2 




2=5+npb 


/7 (punch) 






b+2 




z=z+ncb 


n 






b+s 




z=z+ncb 


ii 






b+2 




2 ss 2+ncb 


14 






b+2 




2=2+ncb 


IS 






b+2 




2=2+ncb 


16 




bew*.-? 


2=0 












b+2+ 


npb- 


-pwm+7 


2=z+npb 


/7 




b+z+ncb- 


-ewv + 7 


2=2+ncb 


/2 




b+2+ncb- 


-ewv + 7 


z=2+ncb 


/3 




b+z + 


ncb- 


-ewv + 7 


2=2+ncb 


/4 




b+2+ncb- 


-ewv + 7 


2=2+ncb 


IS 




b+z + 


•ncb- 


-ewv + 7 


2=2+ncb 


16 


bor = .-7 


2=0 












b+2 




2=z+npb 


/7 (punch) 






b+2 




2=z+ncb 


11 






b+z 




2=z+ncb 


IS 






b+z 




2=z+ncb 


14 






b+2 




2=2+ncb 


IS 






b+2 




2 s= 2+ncb 


lb 






b+2 










bdc=. -7 


/IO 


deactivate tabl 


e 











/7 (punch) 











/tyo 2 













/tyo 3 













/tyo 4 













/tyo 5 













/tyo 6 













/7 (reade 


r) 











/tyi 2 













/tyi 3 













/tyi 4 













/tyi 5 













/tyi 6 







(punch) 



/remove process from 10 wait 

rms , 

dap msx 

Ixr rms 

lac I prq 

sma 

jmp msx /not In 10 wast 

and (7777 

TAAI> 

jmp rm4 /not In sbm chain 

ixr i prq+1 /remove from sbm chain 

dap i prq 

X-*IX 

dio I prq+I 

Ixr rms 
rm4, lac I prq 

dsm i prq 

ra I 6s 

and (17 

TAXP 

dsm i bdc /remove from 10 wait 
msx^ jmp , 



acp,, /activate process 

dap acx 

Ixr acp 

c la 

sad i prn+f 

jmp ac3 /process has been abandoned 

dip I prq /turn off inactive flag 

lac i 5 

sas cm? 

sad (exc 

jmp ac2 /in core, run it directly 
ac0, TAAX /enter here from enb 

Ho i con 

spi 

jmp acx-2 /computation is stopped 

lio i quu 

sn i i 

jmp acx-2 
/put computation on queue 

dzm i qco /give it a new quantum 

dac cmm 

lio i quu + 7 

sn i 

lio (cqu-quu+72. 

law 7 

xor pri 

ssa 

law i 3 

A+IA 

sad (cqu-quu-3 

law cqu-quu 

j da rpm 



/terminate infinite quantum 
/process is in core 





lac 


qua 




CAAN 


i| 




dac 


qua 




jmp 


acx-2 


ac£. 


lac 

rqp 
swp 


pr i 




AN I. 


.< 




sqp 






Ixr 


acp 




jsp 


rpc + J 


acx-2 , 


law 


7 




dac 


pri 


acx. 


jmp 


• 


ac3, 


lac 


f rp 




dac 


i 




TXA 






dac 


f rp 




jmp 


acx-2 



pri 



rb. 


law 


rb? 


/rpb 




c2, 


skp 


600 






ra, 


law 
Ixr 

xct 
nop 
dap 
rsf 
law 
dap 
xct 
imp 


ra1 
tl 
i rrO 

rab 

sr0 
rs? 

i rrO 
rrB 


/rpa 




rrl , 


jsp 
nop 
law 


srv 
600 






rrs, 


skp 


600 


/skip if buffer 




jmp 


rcp-7 








Ixr 


(7 


/normal 


entry 




s iw 


i 








jmp 


dms 








law 


rr9 








dap 


rs? 








jmp 


ret 






rrS , 


rpa- 
law 
dac 
law 

dap 


■ i 

i 3 
rOO 
600 
i rrO 


/set up 






dap 


rrs 


/buffer 


empty 




dap 


sr r 


/reader 


runn Ing 




law 


b 








dap 


ri p 








dap 


rop 








jmp 


rr7 






roq? 


idx 
c la 

dap 


sr J 
rs2 






rop, 


lac 
dac 
lio 
idx 


t 

c2 

rop 








sad 


( lac i 


erb 






lac 


(lac I 


b 






dac 


rop 








sub 


ri p 








S2a 


1 








dio 


rrs 


/buffer 


empty 




sas 


(erb- 


b-rwm 






sad 


( - rwm 








dlo 


sr r 


/buffer 


near ly 



empty 
rab, jmp , /r&a-rpb switch 



rati , 


cla^swp 






rcl 


8s 






d io 


prb 




res, 


usn 








law 


srO 






dap 


rs? 




rs2, 


skp 








jmp 


sr? 






Ixr 


pre 


/rpa complete 




siw 


i 




ret-? , 


dlo 


i 2 




ret, 


Ixr 


pre 






lac 


(400000 




dip 


i prn 






jmp 


rm3 




rb7, 


spi 


i 






jmp 


rbZ 






lac 


prb 






ri I 


2s 






rcl 


6s 






dac 


prb 






isp 


rOO 






jmp 


rb2 






law 


i 3 






dac 


rOO 






llo 


prb 






jmp 


res 




rb2, 


xct 


rs2 






jmp 


sr7 






jmp 


rrs-7 




rOO, 







/rpb count 


rr9. 


xct 


rrs 


/this is part 




jmp 


roq 






rsf 








jmp 


srO 




prb. 







/reader buffer 


rr, 


Ixr 


t? 


/ rrb 




xct 


i rr0 






nop 








usf 








I io 


prb 






jmp 


re i 





of srv 



O'Q 



pa, 



1 1 , 



ti+3, 



re i , 



to, 



to3, 



25?, 



law 
I to 
re I 
imp 

lac 
Ixr 
xct 
dac 
spn 
Ixr 
sbf 
jmp 
I io 
jsp 
jmp 

Ixr 
xct 
jmp 
sen 
r\ I 
TIX 
sps 
sbe 
jmp 
jsp 
Ixr 
xct 
jmp 
txr 
jmp 



/ppb 



/ppa 



2 

i 2 
as 
pa+7 

i 2 
t? 
i pp0 

t 

(7 

i 

dms 

t 

itf 

ret 

t? /tyi 

i ra2 

23 

4s 



i 

dms -2 
i te 
tJ 
i ra2 

2?0 

pre 
ret-7 



i 2 



I io 

dio 

i dx 

sen 

r! I 

TIIX 

dio t2 

sps 

jmp 

sbf 

jmp 

Ixr 

xct 

jmp 

I io 

Ixr 

j sp 

jmp 



/return with I 



/tyo 



t 
t? 

4s 



if0-7 

i 

dms 

t7 

i ra2-7 

25a 

t 

t2 
itf 
ret 



di, law 1 /dia 

jmp atm+70 /simulate 770071 

dc, lio i dil /dec 

dio t /write field 

lio i 2 

dio t2 /read field 

jsp trf 

dip t2 

lio t 

jsp trf 

jmp dc7 

xct tr7 

Ixr t7 

and i msk 

sza i 

j mp ill 

j mp . 2 
dc7, dip t /enter here from direct drum read 

Ixr pre 

lac i 

dac t? 

sfa 

jmp adc /not in core 

I io i 4 

r\ I 5s 

and (070000 

spi 

sza 

jmp dc2 

law 7700 /references PRL field 

and t7 

sza i 

jmp ill 

law 7777 

and t2 

sub (7 

TAM>P 

jmp ill 

law i 7777 

ior t7 

A+I_< 

jmp ill /wraps around 

dc2, dra /enter here from read/write sphere 
xct , 2 
lai 

sub t 
and (7777 
sub (7652 
and (-77 
sza 

jmp dc3 
spn 
sen 
I io t 
dia 
lio t2 
lac t7 





dec 


skk, 


jmp ret 
law 1 




Ixr pre 
add i ? 
dap i ? 

jmp ret 


dc3, 

cJ , 


j sp srv 

skp 

jmp dc2 



trf, 


dap 


trx 




ri I 


Is 




c la 






rcl 


5s 




sza 


i 




jmp 


trx 




ri r 


6s 




spl 






jmp 


abs 




sub 


(nuf 




sma 






jmp 


I I I 




Ixr 


tf 




add 


i df 7 




dap 


. 1 


tr7, 


lac 


9 




and 


(700000 




sza 






jmp 


i 11 




xct 


tr7 




and 


(77 




rar 


6s 




sza 


i 




jmp 


ill 


t rx, 


jmp 


« 


abs, 


sub 
sma 


(27 




jmp 


ret /selection error 




add 


(sd 26 




dap 


trx-7 




idx 


trx 




jmp 


trx 


da, 


dra 


/dra 




law 


145 




A+IA 




and 


(7777 




dac 


i 2 




jmp 


ret 



/entry from interrupts 

tot, se I 

jmp svc 

jsp srv 

jmp .+2 



j mp , - 2 

rsb /read switches and buttons 

Ixr tsb 

X$ IP | 

jmp bs0 /no change 

CXX 

dio tsb 

X«-IA 

sar 7s 

and onn 

dac tQ /call buttons that have been pressed 

lac tsb 

and pmt 

sad csi 

jmp bs? 

Ha /switches have changed 

lac arl+prq 

sas rnk 

jmp hsl /login process isn't hung on mta 101 

dio cs i 

dio ar I 

lav/ 6 

dac pri 

lac (400000 

dip ar l+prn 

I aw a r I 

jda acp 

jmp bs? 



console 2,0,40 
console 3,0,20 
conso le 4,1,10 
conso le 5,1*4 
conso le 6,1,2 



bs 7 , law ctb 

dac t6 

lac tO 

rar 6 s 

ub0, and (-7777 



ssa i 

jmp bs0 

dac t4 

sma 

jmp ubx 

Ixr t6 /console hit call 

lac i 

TAX 

law 14 

dac t /transmitted word 

law 7777 

and i id 

TAAX 

stf 7 

sad i prn 

jmp ntc 

Ixr i prn 

lio i prq 

ri I 7 s 

law 40 

and i 4 

sza /check ID's flag 7 

spi 

jmp ubx /in enter, can't hit call 

dip i prn /clear process control flags 

law 7 02 

dac i 7 

TXA 

ri r 7s 

spi i 

jmp .+4 

jda rms /in lot wa I t 



lac rms 
jda acp 
ubx, idx t6 

lac t4 
ra I 7 s 
jmp ub0 



bs0, 


lac 


sbm /check sbm chain 


sb7. 


sad 


(sbm-prq 




jmp 


rm7 




dac 


rms 




TAX 






rbe 






dio 


t! 




law 


7777 




and 


i prq 




dac 


to 




Ixr 


i 5 




lio 


i be J 




I be 






law 


7777 




and 


i con 




TAIXP 




I Io 


i aw J 




lar 






spn 






sen 






sbr 






jmp 


♦ +6 




jsp 


rms + J 




law 


6 




dac 


pr i 




lac 


rms 




jda 


acp 




I io 


t/ 




I be 






lac 


to 




jmp 


shl 


rm1 , 


Ixr 


cm? 




law 


7777 




and 


i con 




TAIXP 




I io 


i awl 




lar 






spn 






sen 






soq 






jmp 


rm3 


pac, 


Ixr 


cm? 




TXXP| 




jmp 


pad 




lac 


qua 




TA> 






jmp 


pad- 7 /computation had 




isp 


i qco 




jmp 


paf 




law 


3 




add 


cpr 




sas 


(cqu-quu+!5. 




dac 


cpr /demote unless at 




jmp 


pad 


paf , 


lav/ 


cqu-quu-3 




I io 


(3 




jmp 


* + 3 




sas 


i quu 



inf i n? ta quantum 



bottom level 



jmp 


pad 


A+IAX 


sas 


cpr 


jmp 


.-4 


lio 


(74 


Iqn 




jmp 


rm3 



/start another quantum 



dms-2, 

drns, 



wa, 



law 6 

A+XX 

lac pre /deactivate process, device number In XR 

lio i bde 

sn I i 

jmp 105 /function busy 

dac I bde 

TXA| 

cla /deactivate, no 10 device 

rar 6 s 

lor (400000 

Ixr pre 

dac i prq /reason for deactivation 

lac i 4 

and (160000 

sas (40000 

jmp wa0 

law sbm-prq 

dac I prq + 7 

lac sbm 

dap I prq 

X-*AX 

dac i prq*! 

dac sbm 



'search process queue 



wa , 



w0a, 



taw CQP-Qrq 


/chec 


i io f rp 




sas epp 




TIIXP| 




jmp wOa 




lac i 




dac frp 




dio pre 




c I i * cm i 




jmp qt2-T 




law pqu-prq-2 




lio (2 




A+IAX 




sad i prq 




jmp .-2 




sub (pqu-prq 




sar Is 




sad (10 




jmp pSe /queue 


is empty 


I ia 




scp 




lac i prq 




dac pre 




X-*AXI 




Ipp 




lio i 5 




dio emp 




lio i prq 




X-»IX 




dap 1 prq+J 




X-*AX 





/check process chain 



dap i prq 

1 1 o (2 

TXXA| 

A + IAX 

sad i prq 

jrop ,-2 

sub (pqu-prq 

sar J s 

I ia 

sqp 
rm3-2 , spn 

sen 
rm3, lac qua 

spa 

jmp pac /end infinite quantum 

lac 

sza i 

idx cs? 

dac 

Ixr pre 

TXXP| 

jmp waO /running process has disappeared 

lio i prn 

spi i 

ubn 

cla^clf 7 

dip i prn 

ri I Is 

TIIA<M 

ubs 

A+IAKM 

j mp ill 

A+KM 

jmp xe? 

jmp fr6 

p5e, dsm pre /process queue empty 

lio cm 7 
sn i *ssf 4 ! 

jmp pad /try another computation 
cli /run hung process 

lar 
Iqn 

lio (cs? 
Ipp 
lio (10 

sqp 
scp 

dsm qua 
ubn 

rmv, dap pax /remove computation, put on queue at level in cpr 

Ixr pre 
TXXP 

jsp rpc /remove running process 
dsm pre 
Ixr cm? 
TXX | = 

jmp pax /there is none 
elf 2 



roe 

d i o i be/ 

rmi, law 7777 /remove ail processes belonging to this computation 

and i prn /from process queue 
TAAX 

dac cmm 

sad cm! 

jmp pab /done 



lav/ 


i 7777 


and 


• t>rq 


S5a 




jmp 


rml 



/wasn't active 
L I o i prq 
Ixr i prq + 7 
dio i prq 
X-IX 

dio i prq+? 
Ix r cmm 

stf 2 /indicate active process found 
jmp rml 

pab, asm cm? 

lac i con 

spa 

jmp . /stopped? 

lac cpr 

dac i quu + 7 /save priority 

szf 2 i 

jmp pag /there were no active proc's 

j da rpm /put on comp queue 

jmp pax 

pag, dsm i quu /enter here also from dsb 

Ho i /mark all cores inactive 

TIIMJ 

pax # jmp . /done 

lac (700000 

rcl 3s 

sas (6 

sad C7 

jmp pax-! 

TAX 

dip i be 

jmp pax™? 



/place computation in XR, cmm. on on queue at level In AC 

rpm, 

dap pmx 

Ho i qco 

lac rpm 

dac i quu 

dac i quu + 7 

sni 

i dx rpm /to put at end of queue instead of front 

Ixr rpm 

lac i quu 

Ixr cmm 

sni 

jmp .+5 

dac f quu /put at front of queue 

X-»AX 

dac I quu+? 

jmp ,+4 

dac i quu + 7 /put at end of queue 

X-AX 

dac ? quu 

Ixr rpm 

dac i quu 
pmx, jmp . 



to. 











tu 











ti, 











t3, 











t4. 











t5, 











t6, 











sbm, 


sbm-prq 


/seq. brk, deactivate chain 




sbrn-prq 








cs 1 * 


525252 


/hung process 






sub ,+2 










dac i . 










dac cs7+2 










520552 










(667666 








crnm, 











cpr, 











who, 











qua. 











cqu, 


,-quu 


.-quu-7 


-7 


/„73 sec 




,-quu 


.-quu-7 


-? 

«. 


/.27 




,-quu 


,-quu-? 


-5 


1 .61 




,-quu 


.-quu-7 


-ff, 


/1. 6 




,-quu 


.-quu-7 


~?5e 


11. 


pqu^ 


repeat 10, 


, ,-prq 


,-prq-l 




cmp, 





/current 


computat ion 




cmq, 











pre, 





/cu rrent 


process 




cm 7 , 


Q 









pad-? , 
pad, 



dsm 


I qCO 


lac 


cm! 


dac 


who 


jsp 


rmv 


stf 


4 /to Indicate that computation search 


law 


cqu-qUu-3 /search computation queue 


I io 


(3 


A+IAX 


sad 


(cqu-quu+75. 


jmp 


wa0 /empty 


sad 


i quu 


jmp 


.-4 


dac 


cpr /found one 


cl i 




sas 


(cqu-quu+72, /if at bottom, maybe infin 


lio 


(74 


lac 


i quu 


d+c 


cmq 


sas 


who 


Ho 


(74 


dio 


qua 


TAX 




lio 


i beT 


I be 




law 


7777 


and 


i con 


TAIXP 


lio 


i awl 


lag 





wi 11 happen 



quantum 



/bring in core 

Ixr cmq 
lac i 7 
TAP | 

jmp , /does not exist 
I io i 
rci 3s 
sas (6 

jmp p5b /already in core 
/select absolute core to use 
clc 

dac tO 
ZAIX 

lac i be /look for oldest inactive core 
AMI_> 
j mp , + 3 
X-AI 
dac tO 
SWXA 
sas nuc 
jmp ,-7 
lac tO 
TAAM 

jmp p5c+7 /found one 
£X 

law 7 
and i uc 
X-AP 



p5c, 



jmp p5c 
SXXA 
sas nuc 
jmp ,-e 
Law i 7 
add nuc 
dac tO 
dsm t4 
jsp bru 



/not a core 



/absolute core 
/pseudo core = (? 



p5b. 



P5f, 



lac 


cmq 




dac 


cm J 




Ixr 


cm7 


/ remove 


lac 


f quu 




Ixr 


i quu + 7 


dac 


1 quu 




X-*AX 




dac 


i quu+7 


Ixr 


cpr 




I io 


i quu« 


•2 


Ixr 


cm 7 




lac 


i qco 




ssa 


i 




dio 


i qco 


/g i ve i 


I io 


qua 




Iqn 






Ixr 


cm7 


/put a I 


law 


7777 




and 


i prn 




sad 


cm? 




jmp 


wa0 


/done 


dac 


t3 




TAX 






law 


i 7777 


r 


and 


i prq 




lio 


(7 




sza 


i 




Jsp 


rpc+7 


/put on 


Ixr 


t3 




jmp 


p5f 





It from comp queue 



a new quantum 



on process queue 



proc queue if active 



/stop processing In a computation, remove 10 waits 
/computation in AC 

stp, 

dap spx 

lac stp 

sad cm? 

jsp rmv /Is running 
spx, law . 

dap pax 

Ixr stp 

iac i con 

spa 

jmp 9^ /already stopped 

ior (400000 

dac i con 

Ho i quu /remove from computation queue 

sni 

jmp , + 5 /not active 

Ixr i quu + 7 

dio i quu 

dio I quu+J 
Ixr stp 

asm i quu+? /crock for acp 

law 7777 

and i prn 

TAAX 

sad stp 

jmp pag /clear quu, give cores low priori ty, exit 

jda rms /remove each process from lot wait 

Ixr rms 
jmp .-7 



trp^ 
sps% 



sub (103 /program trap 

and (77 /start superior sphere 
dac t 
dsm to 
Ix r cmp 
lac i sup 
TAXP| 

imp . /no superior 
jmp ntr 



/resume processing In 


ust, 




dap 


acx 


txr 


ust 


lac 


i con 


sma 




jmp 


acx 


and 


(37777 


dac 


i con 


Law 


7777 


and 


i prn 


sad 


ust 


jmp 


acx 


TAX 




law 


i 7777 


and 


J prq 


ssa 




jmp 


.-70 


law 


6 


dac 


pri 


lac 


ust 


jmp 


acQ 



computation in AC. Must be stopped 



/wasn't stopped 

7 

/turn off stop bi t 

/check each process 



/done, no active proc 



/not active 

/crock 

/active proc found 

/acp will put it on comp queue 



bp, rfa /bpt 

la t 

Ixr cmp 

sad I bpl 

isp i bp2 

jmp b3 /not primary, or count expired 

lac i bp3 /multiple proceed 

Ixr (-070000 

X+IX 

dac i /replace instruction 
ses, Ixr pre 

law 4000 /set ESI bit 

ior i 4 

dac i 4 

ubn 

b3, dio i bp? /report breakpoint to superior 
law 4 
jmp spr 

j la, Ixr cmp /memory protection violation 
lac i imr 
sma 

jmp i 1 1+4 
law 6 
jmp spr 

adf, cli /extend snag 

jmp adf+7 
adf+2, lio i 3 /last snag 

lac i 7 

TAAX 

A+X<M 

jmp ady 
adf+7, lac (77777 

jmp ady+3 



ad*? 


lio 1 3 / x s um snag 




lac i 1 




TAAX 




A + X>P 




cla 


ady, 


and (70000 




A+II 




law 7777 


ady+3, 


dio t 




rfa 




Ixr (-070000 




X + IX 




and i 




add t 



adc, ra i 6 s \ " 

and (7 ■•-• '<? 

TAAIP| /attempted core In AC 

j rnp . 
dac t4 
sub (6 
sma 

jmp I la /core can't exist 
lac crnp 
dac cmq 
A+IX 
lac I 1 
ssa i 

jmp i la /core doesn't exist 
law rm3 

/bring program field t4 of computation cmq into core, preserving 
/core of running computation 

br0, dap brx 

Ixr cmT 
1 1 o i 
c la 

dac t2 /this sphere's core 

2AX 

I io i uc 
sn i i 
jmp 9 3 
sas t2 

jmp sas /found empty core 
SXXA 
sas nuc 
jmp .-7 
ZAX 

I i o i be 
spi 

jmp . 3 
sas t2 

jmp sag /inactive core 
SXXA 
sas nuc 
jmp ,-7 
2AIX 
sad t2 
jmp , 7 
law 7777 
and i be 

AMI_> /to be sure of getting at least one 

jmp , 3 
X-*AI 
dac tO 
SXXA 
sas nuc 
j mp . - ? 2 
lac tO 
532, dac tO 

jmp bru+J 



/bring program field into core 

/computation in cmq / absolute core (already selected for priority) in 

/pseudo core in t4, must exist and be on the drum (translation = 6) 

bru, 



br2, 
ct7, 



br3 , 
br4, 



dap brx 




idx be 




idx bc+T 




idx bc+2 




Ixr tO 




lac (600000 


dac i be 




lac i uc 




sza 




jmp br2 




lac wf 


/no previous inhabitant 


ra I 6s 




and (37 




TAX 




dsm i sd-3 


f 


dsm wf 




jmp br3 




dac t? 


/primary field word 


dac t2 


/current field word 


and (7770 




dac t3 


/computation block 


TAAX 




I io i 




xor t2 




TAX 




xct i r1 




CXX 




law 6 




rcr 3s 




xct i r2 




Ixr t3 




dio i 


/clear translation of p 


1 V V ¥0 




m t w — 




law 7777 




and i 1 


/get next attachment 


sas t T 




jmp ctf 




lac wf 




Ixr t? 




dip i 1 


/mark last inhabitant o 


lac t4 




add cmq 




dac tZ 


/assignment word 


dac t2 




TAAX 




and (7770 




dac t3 




law i 7 777 


and i 1 




ssa i 




jmp br5 


/just an attachment 


dac rf 


/the real field 


lac (add 





previous inhabitant 



drum 





G J p 


i 1 






TXA 








Ixr 


to 






dac 


i uc 




br5, 


Ixr 


t3 






I io 


I 






lav/ 


7 






and 


tl 






TAX 








xct 


\ rl 






lac 


to 






rcr 


3s 






CXX 








xct 


i r2 






Ixr 


td 






di o 


i 


/fix up translation 




sas 


(60Q00Q 




jmp 


• 


/was already in core 




Ixr 


t2 






lav/ 


7777 






and 


i J 






sas 


t? 






jmp 


br4 






lac 


ta 






rcr 


3s 






Icr 








dra 








lac 


« 






lal 








add 


(30 






dap 


wf 






dap 


cf 






dsm 


dec 






I io 


wf 






dia 






cf , 


law 


8 






I io 


rf 






dec 








jmp 


ore 




px. 


lac 


rf 






dac 


wf 




brx, 


jmp 


a 




rf , 







/last read field 



/drum error recovery 

are, dra 

Lac , 

spi i 

jmp , 

isp dec 

jmp de9 
spq 

jmp • 

I aw i 20 

dac dec 

de9, law 7777 

and wf 
I ia 

jmp cf-7 



/not parity error 
/try again 
/un recoverable 

/clear write field 



dec, 



/ESI trap 

xeO, law i 4 000 

and I 4 
dac i 4 

xe? , Ixr cmp 



I ! o i 

Icr 

lac i bp7 

TAAKM 

!mn +7 / i n t-a S"*n> i-o 1- • r\<r hfaaj^nrt t nf 

law 2 
dac t 
TIM | 

isp i bp2 /counting instructions 

jmp spr+2 /cause trap 2 

jmp ses /turn ESI back on and proceed 

sfa 

jmp xe2 /not In core 

llo (bpt 

sub (070000 

TAX 

lac i 

dio I 

Ixr cmp 

dac I bp3 

ubn 



xe2, lac (700000 
Ixr pre 
dip I prn 
la I 
jmp adc 



t, o 

tsb, 

/tables to rotate translation word 

r1 , r I I 3s ri I 6s ri I 9s 



ril 3s 
ri r 6s 
r2, nop 



ri I 6s 
ri r 3s 



Ivw, Ixr f 5 /Ivk trap without PRL 

law 7 777 
and I con 
TAXPJ 
jmp i 1 1 
rfa 
X^IX 
eem 

law nuf-J 
and \ 
lem 

add (-nuf 
TIX 

add i df 1 
TAXI 
jmp ivt+3 

Ivt, rfa /Ivk trap with user PRL 

Ixr (-070000 

X+IXI 
ivt+3, dlo t2 

lio I 

dlo t /capability word 

law 7777 

A«-HAP J 

jmp III /drum field or does not exist 

dac acp /low 11 bits of capability 

c la 

rcl 3s 

sad (7 

jmp etr /enter 

Ixr pre 

Ixr I 

X^AIX 

A$IA 

rcr 3 s 

A* IP 

jmp III /Improper code 

xct I ,+ J 

jmp I 1 1 10 

jmp ssp II - entered process 

jmp f f s 12 - sphere 

jmp pgq 13 - programmed queue 

jmp III 14 - directory 

jmp I 1 1 IB - f I le 

jmp , 161 



ssp, Law 17 /entered process ivk 

A«-IXA 
sub (72 
sma 

j mp III 
lac acp 
xct i .+7 

jmp sp0 101 - read state 
jmp sp? /77 - set state 
jmp sp2 /2 7 - continue 
j np sp3 111 - return 
jmp sp4 141 - cause illegal inst, 
jmp sp5 /57 - return and skip 
jmp sp6 /61 - read process number 
j mp ill /7 7 

jmp mrw /70? - write memory 
jmp mrr /? 7 7 - read memory 

sp7, stf 6 

sp0, lio (-7 /read/write process state 

stf 2 

Ixr pre 

lac i 2 
/transmit info with user's core 
/AC = user core address 
/IO = 7 -number of words 

/acp = core 7 address 

dac t2 /core address 

sfa 

jmp adc /not in core 

AMIA 

sfa 

jmp adc /check for crossing cores 

lac (070000 

ior acp 

TAX 

eem 
sO 7 aam 

lac t2 

szf i 6 

lac i 

aam 

dac t2 

dac i 

idx t2 

SII< = 

jmp s02 

SXX 

ssf i 2 /to skip over PC 

snUssf 4 /to skip over core rename 

SXX 

jmp s0 7 

s 02, I en 

szf i 4 

jmp ret 

Ixr t7 /doing read/write process state 

lio i con 

r i I 2 s 





ixr acp 




lac I 4 




and (-013700 




spl 




for (010000 




dac i 4 //replace PRL 




jmp skk 


sp5, 


TAX 




law 1 




add i 1 




dap i 7 


sp3 , 


lac (400000 




jmp sp4 + f 


sp2, 


2AP 


sp4, 


lac (600000 




Ixr t2 




dsm i 




Ixr acp 




dip i prn 




law 6 




dac pri 




j sp acp+J 




jmp rat 


sp6, 


cl i 




TAX 




SII 




law 7777 




and i prn*T 




ssa 1 




jmp ret /abandoned 




sas 1 5 




jmp ,-7 




Ixr pre 




dac i 2 /computation 




dlo i /process number 




jmp skk 


mrw, 


stf 6 


mrr, 


TAX 




sad i prn+J 




jmp ret /logged out 




lac i 5 




dac acp 




jmp rrr 



i fs, 



dsb, 
enb, 
coa, 



Ixr 


pre 


/sphere Ivk 


tlo 


i 2 




and 


(77 




TAX 






lac 


t2 




dac 


t 




law 


60 




A-XP 




imp 


mt9 


/let George do It 


law 


i n 




X+A<M 




jmp 


i 11 




lac 


emp 




dac 


cmq 




lac 


acp 




xct 


i , + 7 




jmp 


dsb 


101 - suppress processing 


jmp 


enb 


/?2 - permit processing 


jmp 


coa 


/22 - attach 


jmp 


i 11 


III 


jmp 


rdp 


142 - read process state 


jmp 


wrp 


/SI - write process state 


jmp 


rbs 


162 - read bpt state 


jmp 


wb s 


/72 - write bpt state 


jmp 


rrr 


/102 - read 


jmp 


www 


/7 7 2 - wri te 


jda 


stp 




jmp 


ret 




jda 


ust 




jmp 


ret 




A-»IAX 


/attach 


ral 


6s 




and 


(7 




dac 


t3 


/attaching field 


sub 


(6 




X-*A<M 




jmp 


ret 




and 


(7 




dac 


t4 


/attached field 


sub 


(6 




AAI> 


i 




law 


arc 




sas 


emp 




lac 


1 con 




ra I 


2s 




swp 






spi 




/check for attaching PRL 


sas 


(-6 




sma 






jmp 


ret 





L I o i 

Ixr t4 
xct 1 rl 

dio t2 /translation from attachee 
lac acp 
adm t4 
TAX 

sad 1 J /see If attachee exists 
jmp ret /no 
lac cmq 
add t3 
dac tO 
TAX 

lac i ? 
52a i 
jmp cog 
and (7777 
sas I ? 

jmp ret /attacher is real core 
dap .+6 
TAX 

law 7777 

and i 1 /follow attachment ring around 
sas tO 
j mp , -4 
law , 
dap i J 
coS, Ixr cmq 

lac t2 
Uo i 
Ixr t3 
xct i r? 
rcr 3 s 
CXX 

xct i rl 
I x r cmq 

dio i /insert new translation 
Ixr t4 /put attacher In ring 

I io I ? 
lac tO 
dap i ? 
TAX 

dio i I 
di p i ? 
jmp skk 



wrp, stf 6 

rdp, cnUstf 4 /read/write process state 

dac t? 



rdp+6 , 



TAX 




Lac 


i con 


sma 




jnp 


ret 


lav/ 


7777 


and 


1 prn 


sad 


acp 


jmp 


ret 


TAAX 


t 


SIIF 


i 


jmp 


rdp+6 


dac 


acp 


Ixr 


pre 


Lac 


i d i ? 


I io 


(-5 


jmp 


SP0+4 


stf 


6 


law 


bpf 


aem 


acp 


I io 


(-2 


jmp 


sp0 + 2 



/not stopped 



/look for selected process 
/does not exist 



/core address 



wbs, 

rbs, law bp7 /read/write breakpoint status 



WWW/ stf 6 

rrr, Ixr pre /read/write 

lio i 4 

r f L 5s /own PRL bi t 

lac ! dil /own core address 

dac t J 

sf a 

jmp adc /not In core 

and (07770Q 

ssa 

j mp . + 3 

spl 

jmp ret /violates own PRL 

and (070000 

ra I 6 s 

dac t3 /own core field 

law 7777 

and i dil 

dac t4 /own address 

lio I 2 

law 7740 

A«-II 

dio t /referenced aedress 

lax I 3777 

and I 

rar 6 s 

dac t2 /word count 

sub ( 1 

spa 

law 7777 

dac tS /count-/ 

sub (010000 

A+K 

jmp ret /wraps around in referenced computation 

add t4 /own address 

sma 

jmp ret /wraps around in self 

lac I 2 

and (077700 

I ia 

Ixr acp /referenced computation 

law arc 

sas emp 

lac i con 

ra I 2s /PRL bit of referenced sphere 

spatsn! /unless self - adm rt 

jmp ret /violates PRL 

la ! 

and (070000 

ra I 6s 

dac t& /referenced core field 



f c3 



A + XX 




sub 


(6 


sma 




jmp 


ret 


Ixr 


i J 


TXXIP| 


jmp 


ret 


law 


7777 



/ i l lega I field 

/referenced field not assigned 



fsc, 



•Fes- 



A«-XX 
X$IAIP| 
jmp fs3 
spa 

j mp fsc 
szf 6 
c la 
AS 1 1 
a dm t2 
Lai 

adm t 
jmp dc2 



/trace attachment ring 

/in core 
/on drum 



/read field, word count 
/write field, drum address 



Ixr acp 
I io i 
Ixr t6 
xct i r? 
la i 

Ixr cmp 
I io i 
Ixr t3 
xct i rf 

S2f 6 

swp 

r i r 3s 
rcr 3 s 
Icr 

Ixr t5 
lac t 
lio t4 

S2f 6 

swp 

X+AA 

dap fsr 

la i 

ior (010000 

cxx 

eem 
lio i . 

X-AX 

die i 

X-*AX 

SAA 

sxx> 

jmp fsr 
I em 

jmp skk 



/referenced core field 
/translated core 



/own core field 
/own translated core 



/read core 0, write core ? 
/count-7 

/referenced address 
/own address 



enq, 



pgq, and (3 /programmed queue Ivk 
TAX 

Law 7 7 77 
and t 
xct i ,+T 

jmp enq 101 - enter queue 
jmp rlq /?3 - releate queue 
jmp rqs ill - release or skip 
jmp HI 

TAX 

lac i prq 
spa 

jmp eqS 
lac (200000 
A*XI 
law wa0 
dap rpx 
Ixr pre 
lac (400000 

dip ? prn /so instruction will complet< 
jmp rpc+5 
eqS, SAA< 

TXXA 

dac i prq 
jmp ret 

rlq, TAAX 

lio (-7 

Ixr i prq 

TXX> 

j mp rq 3 

A$XP 

jmp rqs+5 
rq2, TAX 

dio i prq 

jmp ret 
rq3, I+XK 

SII 

jmp rq2 

rqs, TAAX 

Ixr i prq 

TXX< 

A$XP| 

jmp skk /queue is empty 
rqs+5, lio i prq 

X-*IX 

dap i prq+? 

X-»AX 

dap i prq 

la i 

jda acp 

jmp ret 



etr, law 2 /enter 

dac to 
lio t 
r\ I 5s 
spi 

jmp ntr 
sir 5s 
law 77 
A«-IAX 
dac t6 
X$II 

law i 7777 
and i ntb+ntl 
AHA 
dac t 

/enter, object in t6 

/transmitted word in t (goes to 10) 

ntr, Ixr pre 

lac (200000 

dac i prq /hang entering process 

Ixr emp 

lac i sup 

Ixr t6 

TXXP 

lac ? ntb+ntl 
ntc, and (7777 

dac cmq 

TAAX 

lio i prh 

TII_< 

jmp .+7 /hoard is not empty 

lio frp /hoard empty, check pool 

sn i 

jmp nta /too bad 

law i 1 

adm i prh /increase debt 

Ixr (frp-prh 

aam /unlink from hoard or pool 
lac i prh 
dac i prh 

dio t7 /new process 
nty, Ixr cmq 

lio i con 

dio t5 

law 100 

szf ? 

jmp nts /entering ID from call button 

ri I 2s 

spi i /check for core C-list 

j np ntp 

dzm t4 

lac i /see if entered comp Is in core 

and (700000 

sad (600000 

jsp brO /bring It in 

Ixr cmq 

I io i 



ntq, 



nts, 



.-6 



Icr 
Ixr 
law 
dac 
I io 
lac 
ssa 
jmp 

sxx 

sua 

sas t4 

jmp 
jmp 
lac 
lor 
dac 
Ixr 
Ixr 
lac 
Ixr 
TXXP 
lac 
Ixr 
dio 
dac 
lac 
dac 
lac 
dac 
dac 
X-AX 
I io 
dac 
TIX 
dap 
X-»AX 
dac 
lac 
rar 
and 
dac 
TXA 
jda 
szf 
jmp 
jmp 



(-076000+1 

100 

t4 

(1 

s 

i 

.+6 



/can't 



pre 
(150000 


pre 

5 

spe 



ntb /start address 




1 

2 
cmq 
prn 
5 



/AC has capabl I i ty 
/PC 

/transmitted word 



Index 



prn+? 
prn+T 

prn 

prn + 7 
t5 
3s 

(010000 
i 4 /initialise PRL 



acp 
J 

ubx 
wafl 



/cal I button enter 



ntp, 



law 
and i 
TAXP| 
jmp . 
lav/ i 

ado j 
SAX 
I aw 
jmp 



7777 
con 



nuf 
df7 



10 
ntq 



/check for core 7 C- list 



t7, 
nts, 



Ixr pre 



Lac 


t 


ciac 


S prq + 


idx 


t6 


rar 


6s 


jmp 


frS 



/transmitted word 



mus, rar 7s /end of tailspin 

spa 

j sp mst+4 /if moving, stop 
mtg, unt 100 /unit wait 

unt /read unit number 

rl r 9s 

law 30 /or 170 for 20 units 

A*- IX 

ri I 9s 

lac (100000 

lok 

mot /motion select 

ior I mtt+7 /turn on ready bit 

mot 100 /skip ready 

and (7777 

A-*KM /skip if block or end mark 

jmp un5 

lac (-200000 

mot 300 /skip EOT 

jmp un4 /block mark 

A*IM| / in end gone 

jmp un5 /alreaey know about it 

AMIA /turn on end 

ior (070000 /clear lastrev, need, moving 

CAA<M 

ior (046000 /turn on iastrev if not fwd 

I ia 
un5, dio i mtt+7 

lav/ 10 /check whether to end block wait 

A*-IP| 

jmp mtg /not waiting 

lac i mtt + 4 

TAAM /-0 means just waiting to leave end sone 

sub i mtt+5 

A-»IA<M 

cmi /I0 has number of blocks to go 

ra I 5 s 

sma 

jmp 8 +6 /not ready ^ or not moving 

rar 4s 

spa 

jmp mtg /in end gone 

TI_< 

jmp mtf 

law i 10 /terminate block wait 

adm i mtt+7 /clear wait flag 

rar 6s 

sma 

jmp mus /in tailspin, stop tape 

f rk 

mtl 

jmp mtg 



mtf, ra I 3s /check whether to search 
TA>P 
sas dtf 

jmp mtg /busy, or don't need to search 
idx dtf 
Law 03 
!vk 74 
frk 
mtg 
TXXI 
ril 9s 

dat /data select 
dat 400 /search 
dat 300 /read status 
spi i 

jmp mth /block delay or end mark 
dat 100 /read block number 
law 7 777 

A«-II 

dio i mtt+5 /new block 

lac {-010000 
I ok 

and i mtt+7 

dac i mtt+7 /clear need 

mth,, law 13 /release data control 

ivk 74 

I aw i 1 

adm dtf 
qi t 

un4, A«-II>P /block mark, clear end bit 
cma 

ra I 2s /+? or -7, depending on direction 
adm i mtt+5 
jmp un5 



c7e? Ixr (50 /or 170 for 10 units 

X-IX 

lam 

tbc m -4 /tape beginning coast distance 

tec__-J /tape ending coast distance 

/mlcrotape entry 

/index in AC, ?0*unit number In XR 

mte, Lok 

lio I mtt + 7 

ri r 6s 

spi i /busy flag 

jmp .+5 

dap ,+2 /unit is busy 

law 41 

ivk . 

qi t 

dap i mtt+6 /set up entered process 
lax 40 /mark i t busy 

dap i mtt+7 
ulk 

law mtt 
A+XI 
law ? 

xct I mtt+6 /get state of calling process 
mtd, law 777 /translate block number 
and I mtt+? 
ral ?s 
sub (1000 
sma 
CAAl 

add (1001-776 
add (776 
llo I mtt+0 
rll 1s 
spi 

law I 5000 /rewind, set desired block negative 

dac i mtt+3 

ri r 1 s 

I aw 10 

re I 2 s 

dap i mtt+7 /set up control flags, clear attempt count 

lac ("200000 
A*-XX /to indicate data Is not in buffer 



mtl, law 100 /decide what to do next 
lok 

adm I mtt + 7 /count attempts 
ral 6 s 
TAAI>P 

jmp mtO+1 /too many 
Ipf /load tape flags 
iam 

S2f i 3 

jmp mt0 /tape not ready 
and (000125 
s+d (000124 

jmp mdo /rewind complete 
law 34 1 
A<-IA 
sad (301 

jmp mdo /rewind complete 
lac i mtt+3 

sub i mtt+5 /actual block 
ssf i 6 

jmp ms? /tape not moving 
c I i tcmUswp 
ssf 2 
jmp ms9 + 3 /leaving end gone 

S2f 1 

cmi 

law tbc+tec+2 

A+II_> 

jmp ms9 /a long way to go, wait 

AMI__< 

jmp mh7 /very close 
mh2, lav; 2*tbc+tec+3 /went past, or can't get control 

T I I = /skip if can stop in time 

AMI> /must go past and turn around 

jmp mst /far enough past, stop 

law i tbc+7 /wait 

ms9, ssf 1 

cma 

add i mtt+3 /get waiting block number 

rns9 + 3, dac i mtt+4 

law 1 

adm i mtt + 7 /block wait flag 
mda, TXX<M 

qi t 

jmp mth /release data control 

mhf, TXX>P /try to get data control 

jmp m?2-7 /already have it 
cla 

sas dtf 

jmp mh2 /busy 
idx dtf 
law 3 
ivk 14 
TXXI 
ri I 9s 

dat /data select 

jmp m/2 



mst, law msu 
TXXI 
ri I- 9s 

mot /select 
mst+4, dap msv /stop tape 
lac (-010000 
adm I mtt+7 
TA<M 

law ? tec*2 
acid (tec 

mot 5 1? /stop 
msv , j mp . 

msf, saf 2 /tape stopped 

jmp ms4 /in end sone 

CAK 

cma 

sub (2*tbc+tec+J 

S2m 

jmp srt /quite far away 

add (tbc+tec /fairly close 

S2m 

jmp mr3 

cm! /too close ? go away 
srt, law tbc /start tape, direction In 10 

spi i 

cma 

adm i mtt+5 /fudge block number 
srt+4, X-»IA 





ri I 


9s 










mot 




/motl 


ion select 




spa 












mot 


600 


/forv 


•/a r d 






TAKM 










mot 


700 


/reverse 






mot 


400 


/go 








lac 


i mtt- 


J-7 




/ 1 u r 




ior 


(430000 








spi 


i 










and 


(370000 




/and 


msu-? / 


di p 


i mtt' 


*7 






msu, 


u Ik 
jmp 


mtl 









/turn on moving, need 
/and di rect ion bit 



ms4, lie (1000 /start from end sone 

S2f 4 

lio (-1 

dio i mtt +5 /set up block number 
jmp srt+4 



mr3, lac i mtt+7 /stopped a reasonable distance away 

ret Is 

rar Is 

dac i mtt+7 /put in direction bit 

ulk 

TXXI>P 

jmp ,+7 

idx dtf /get data control 

law 03 

ivk 14 /wait as long as necessaqy 

ri I 9s 

dat 

skp i 

ri I 9s 

lac (030000 

lok 

ior I mtt+7 

dac I mtt+7 /turn on moving, need 

mot /motion select 

spa 

mot 600 /forward 

sma 

mot 100 /reverse 

mot 400 /go 
m/2-7, ulk 

m72, law 7400 

mta 
lac (400000 

A*XXA /to indicate that this unit hat data control 

A+X>P 

jmp m75 /stuff is in buffer, too 

lac (200000 

A*XX 

law i 31 

and i mtt + 

sas i mtt+0 

jmp mt2 /not on 40 word boundary 

lio i mtt+7 

ri r 2s 

A- KM 

jmp m7 5 /wr i te 
lac (040111 /read 

xct i ntt+<? /move stuff into \-.-y ? *i>r 

jmp mt2 



m?5/ Ho i mtt + 7 /ready to try the -transfer 
r\ r 2s 
lac I mtt+3 
sp! 

dat 600 /wri ta 
spi I 

dat 500 /read 
dat 300 /get status 
lac (140000 
A«-IP 

jmp mt i /block delay or end of tape 
lac 1 mtt+3 

dac I mtt+5 /store correct block number 
lac (-020000 
I ok 

and i mtt+7 

dac i mtt+7 /clear need bit 

u Ik 
sp! 

jmp ml 6 /wrong block number 
rl I 7s 
d!o tpb 
rar 2s 
spa 

jmp * +6 /was a write 
llo I mtt+0 /read 

lac (040101 

xct I mtt+5 /move stuff out of buffer 

jmp mt2 /bad core address 
lio tpb 
spi 

jmp mdn /transfer was ok 
cla /error 

ri I 7 s 
SAA 
TII_< 
jmp ,-3 
jmp mt0+3 

mt2, law 2 /error 2 - bad core address 

jmp mt0+3 
mt0/ SAP /error - tape not ready 

mt0+7, lav/ 7 /error 7 - can't find block 

ulk 
mt0+3, dac i mtt+0 /error code 

elf 6 

jmp mdf 

m7 6, dat 2 00 /read block number 
law 7 777 
A- 1 A 

dac i mtt+5 
jmp mt I 

mdn, law 400 /block transfer complete 

adm i mtt+0 
lio (770000 
Idx I mtt+7 
A«-IP| 





jmp mdo 








lac (-010000 








adm i mtt + 7 








A-IP 








jmp mtd 






mdc, 


ulk /operation complete 




stf 6 /to 


step 


PC 


mdf, 


lio I mtt.+ 7 








law tbc+4-tec 




/set up t 




spi i 








cma 








add i mtt+3 








dac i mtt+4 








law mtt 








A+XI 








lax n 








xct i mtt + 6 




/wri te ou 




law 10 








lok 








dap i mtt+7 








law 31 








S5f 6 








law 5 ? 








xct i mtt+6 




/return 



jmp mda /release data control if have it, then qit 

/microtape unit tables 

mtt, repeat 4, [repeat 6,0 

ivk 
01 

tpb, /status 

dtf, /number of processes trying to use data control 



ar, 



clc 
s iw 
cla 

ciac 

imp 



/arq 



t 
mt9 



/se lectr I c 


trans later 


si , 


law 

A$B 


76 /tyl 




rar 


4s 




spa 






xcr 


(240000 




ral 


4s 




sas 


(16 




sad 


(75 




jmp 


5?? 


/XR - t? '- 


ens 




25 5 ^ 


ior 


i tSJ 




dac 


to 




sub 


(7 




TAAX 






and 


(77 




lio 


(11 




AMI_ 


> 




jmp 


zs? 




lio 


U 




Ixr 


(ktb-kte-J 


2S0, 


and 


(277 




sas 


(200 




SXXP| 




jmp 


2S3 




lac 


i kte 




X-MX 


1 




xct 


i trn 




X-»IX 






ral 


9s 




and 


(777 




xor 


to 




ssa 






jmp 


2S0 




lac 


i kte 




TIX 






xct 


1 trn 




xct 


i trn +2 


zs3, 


lac 
TIX 


i kte 




xct 


i trn 




ior 


i til 




xct 


i trn+2 



/tyl translator 



/jmp ss5 or zr5 



/jmp ss5 or sr5 



5S5, 


and 
Lia 


(777 




and 


(100 




A$ 1 3 






sad 


i U7 + 7 




jmp 


re! 




dap 


i U7 + 7 




dlo 


i trn+6 




I io 


(72 /an 




sza 






Lie 


(74 




jsp 


. + 3 




lav/ 


ti+3 




I io 


i trn + 6 




dap 


s3 




jmp 


rel 


277, 


cl i 






sas 


(75 




I io 


(700 




dio 


i t£7 




jmp 


ti+3 


23, 


jmp 


ti+3 


5s7, 


A$XA 




sas 


(700 




jmp 


,+5 




lac 


i uut-700 




Ixr 


t7 




xct 


i trn 




xct 


i trn+2 




Ixr 


t7 




lac 


to 




xct 


i trn+4 


5s4, 


sad 


(27 




law 


173 




sad 


(111 




I aw 


106 




jmp 


5S5 



/need to save char 
/and type in a case shift 



/jmp ss5 or zr5 



/jnp 2s4 or zr4 



s50, 


law 


77 /tyo trap 




and 


t 




sas 


(74 




sad 


(72 




jmp 


256 


/XR = t? 


= ens-* 


■7 




jmp 


255 


2r5, 


rar 
spa 


4s 




xor 


(240000 




ral 


4s 




xor 


(76 




I i a 






and 


(100 




sad 


i tS 7-7 




jmp 


257 




dap 


i tS7-7 




Ixr 


t2 




lio 


(65 




ssa 


i 




I lo 


(66 




jsp 


itf 




jmp 


225 


zr4, 


sad 


(27 




law 


777 




sad 


(727 




law 


773 




jmp 


2r5 


256, 


cli 






sas 


(72 




I io 


(100 




dio 


i U7 




jmp 


255 



ktb, 


277277 


for 




257275 


/backspace 




276275 


/ i 1 ne feed 




275236 


/tab 




073073 


/period 




173040 


/colon, centerdot 




033033 


/comma 




133056 


/semicolon, overbar 




215272 


/ lowe r case 




216274 


/upper case 




153257 


/(, c 




220255 


/), 1 




060154 


/ + 




160120 


/-> 




040054 


/- 




140140 


/under bar 




000020 


10 




100104 


/backs lash, \ 




021173 


/* 




101156 


/I 




013133 


/■ 




113111 


/? 




234234 


/black 




237235 


/red 


kte, 


074000 




UUt, 


103156 
104103 
102101 
100102 
110107 
121110 
105111 
106105 
107021 


/upper case numbers 


constants 






end, 







cms -5 4 / 





cms -4 J / 





cms -2 6/ 




ar L, 


Q 




105 











2 




1 

arc 









arc 




arc 




lac 







mtp, 







mtg 














add 




exc 









exc 




exc 




lac 








/hoard for adrru rt, 
/hoard for tapes 

/login/logout process 



rnk 

/microtape unit monitor 



/proc, ring 



cms, 

arc, 006676 /computation for adm, rt, 

add arc*/ 

arc 









arl /proc, ring 

arl 

repeat 5.Q 

-0 

-0 









100000 /not stopped, PRL 



cms-54 /hoard 



axe, 766666 
add exc 











mtp /proc. ring 

mtp 

repeat 5,0 

-0 

-0 







100000 



cms -4 7 /hoard 





7740/ 









jmp 


sys 


7756/ 


6500 


i 




240000 




250700 


sys, 


lat* 
TAP 


cl 1 




jmp 


ysy 




dia 


/new system 




I Io 


sys-2 




law 


i 7777 




jmp 


7776 


ysy, 


I io 

dia 


sys-3 /saver 




dsm 


7776 




Ho 


sys-7 




law 


i 577 




dec 






dec 




7777 , 


hit 




start 







